home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / Macintosh Programmer’s Workshop / MPW 3.1 / MPW / UserStartup < prev    next >
Text File  |  1990-12-13  |  1KB  |  41 lines
  1. #    UserStartup - MPW Shell UserStartup File
  2. #
  3. #    Copyright Apple Computer, Inc. 1985-1988
  4. #    All Rights Reserved.
  5.  
  6. #    This file (UserStartup) is executed from the Startup file, and can be used
  7. #    to override definitions made in Startup, or to define additional variables,
  8. #    exports, and aliases.  UserStartup may also be used to define menu items,
  9. #    open windows, etc.    The file should be located in the directory containing
  10. #    the MPW Shell.
  11.  
  12. #    Create the Project menu
  13.  
  14.     AddMenu Project 'Check In…' 'CheckIn -w ≥≥ "{WorkSheet}"'
  15.     AddMenu Project 'Check Out…' 'CheckOut -w ≥≥ "{WorkSheet}"'
  16.      AddMenu Project "(-" ""
  17.     AddMenu Project 'New Project…' 'NewProject -w ≥≥ "{WorkSheet}"'
  18.     AddMenu Project 'Mount Project…' 'MountProject… ∑∑ "{WorkSheet}"'
  19.     AddMenu Project 'Set Project…' ∂
  20.         '(project "`getListItem -r 10 ∂`MountProject -pp -s -r∂` -d "∂`Project -q∂`" ∂
  21.          -m "Select a new current project:" -q`") ∑ dev:null'
  22.      AddMenu Project "(-" ""
  23.     AddMenu Project 'Compare Active…' 'CompareRevisions "{Active}" ∑∑ "{WorkSheet}"'
  24.     AddMenu Project 'Merge Active…' 'MergeBranch "{Active}" ∑∑ "{WorkSheet}"'
  25.  
  26. #    Create the Directory menu
  27.  
  28. #    The parameters to DirectoryMenu become the initial list of directories
  29. #    in the Directory menu.  The parameters below specify each of the 
  30. #    Examples directories, and the current directory.  Replace them with
  31. #    your favorite directories.
  32.  
  33.     DirectoryMenu `(Files -d -i "{MPW}"Examples:≈ || Set Status 0) ≥ Dev:Null` ∂
  34.         `Directory`
  35.  
  36.  
  37. #    Create the Build Menu
  38.  
  39.     BuildMenu
  40.  
  41.